home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 97 / SGDS 97.2mg / SDGS.97 / SDB97 / B / STARTUP (.txt) < prev   
Encoding:
Applesoft BASIC Source Code  |  1989-09-20  |  998 b   |  32 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ONERR  GOTO 1000
  2. 5  PRINT  CHR$(4)"pr#3"
  3. 10  POKE 104,17: POKE 103,1: POKE 4352,0: PRINT  CHR$(4)"-MAILIST"
  4. 1000  POKE 216,0: POKE 104,8
  5. 1005  IF  PEEK(222) = 3  THEN  PRINT "REQUIRES 80 COLUMNS.": GET K$: GOTO 1090
  6. 1010  IF  PEEK(222) = 6  THEN  PRINT "FILES ARE MISSING.": GET K$: GOTO 1090
  7. 1020  IF  PEEK(222) = 8  THEN  PRINT "I/O ERROR.": GET K$: GOTO 1090
  8. 1030  PRINT "IRRECOVERABLE, UNEXPECTED "
  9. 1040  ON  PEEK(222) GOTO 1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055,1056,1057,1058,1059,1060,1061: GOTO 1080
  10. 1041  PRINT "UNDEFINED";: GOTO 1080
  11. 1042  PRINT "RANGE";: GOTO 1080
  12. 1043  PRINT "NO DEVICE CONNECTED";: GOTO 1080
  13. 1044  PRINT "WRITE PROTECTED";: GOTO 1080
  14. 1045  PRINT "END OF DATA";: GOTO 1080
  15. 1046  PRINT "PATH NOT FOUND";: GOTO 1080
  16. 1047  PRINT "UNDEFINED";: GOTO 1080
  17. 1048  PRINT "I/O";: GOTO 1080
  18. 1049  PRINT "DISK FULL";: GOTO 1080
  19. 1050  PRINT "FILE LOCKED";: GOTO 1080
  20. 1051  PRINT "INVALID OPTION";: GOTO 1080
  21. 1052  PRINT "NO BUFFERS AVAILABLE";: GOTO 1080
  22. 1053  PRINT "FILE TYPE MISMATCH";: GOTO 1080
  23. 1054  PRINT "PROGRAM TOO LARGE";: GOTO 1080
  24. 1055  PRINT "NOT DIRECT COMMAND";: GOTO 1080
  25. 1056  PRINT "SYNTAX";: GOTO 1080
  26. 1057  PRINT "DIRECTORY FULL";: GOTO 1080
  27. 1058  PRINT "FILE NOT OPEN";: GOTO 1080
  28. 1059  PRINT "DUPLICATE FILE NAME";: GOTO 1080
  29. 1060  PRINT "FILE BUSY";: GOTO 1080
  30. 1061  PRINT "FILE(S) LEFT OPEN";: GOTO 1080
  31. 1080  PRINT " ERROR.": GET K$
  32. 1090  PRINT  CHR$(4)"BYE"